Software of the Month Club 1996 May

home *** CD-ROM | disk | FTP | other *** search

/ Software of the Month Club 1996 May / Software of the Month Club 1996 May.iso / mac / ISO9660 / ZIPFILES / BMPWIZ.ZIP / LOGO1.BAS < prev next >

Unknown | 1995-12-24 | 1.2 KB

open in:

MacOS 8.1 |

Win98 |

DOS

view JSON data |

view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	OpenPGP Public Key	default (weak)
`99%`	file	data	default

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 98 04 00 00 0d 0a 27 20 | 43 72 65 61 74 65 73 20 |......' |Creates |
|00000010| 61 20 73 74 61 72 74 75 | 70 20 6c 6f 67 6f 20 73 |a startu|p logo s|
|00000020| 75 62 73 74 69 74 75 74 | 65 0d 0a 0d 0a 27 20 41 |ubstitut|e....' A|
|00000030| 75 74 68 6f 72 3a 09 41 | 6e 64 72 65 61 20 42 65 |uthor:.A|ndrea Be|
|00000040| 6e 6f 6e 69 09 09 09 20 | 72 65 76 3a 09 31 2e 32 |noni... |rev:.1.2|
|00000050| 0d 0a 0d 0a 0d 0a 66 6c | 6f 61 74 20 20 09 69 2c |......fl|oat  .i,|
|00000060| 78 2c 79 2c 61 0d 0a 44 | 65 76 43 6f 6e 09 4f 62 |x,y,a..D|evCon.Ob|
|00000070| 6d 70 0d 0a 52 47 42 09 | 70 69 78 61 2c 70 69 78 |mp..RGB.|pixa,pix|
|00000080| 62 0d 0a 0d 0a 27 20 65 | 6c 69 6d 69 6e 61 74 65 |b....' e|liminate|
|00000090| 20 74 68 69 73 20 74 77 | 6f 20 6c 69 6e 65 20 77 | this tw|o line w|
|000000a0| 68 65 6e 20 79 6f 75 20 | 68 61 76 65 20 62 61 63 |hen you |have bac|
|000000b0| 6b 75 70 65 64 20 74 68 | 65 20 63 3a 5c 6c 6f 67 |kuped th|e c:\log|
|000000c0| 6f 2e 73 79 73 20 66 69 | 6c 65 0d 0a 44 73 70 4d |o.sys fi|le..DspM|
|000000d0| 65 73 28 22 41 74 74 65 | 6e 74 69 6f 6e 20 74 68 |es("Atte|ntion th|
|000000e0| 69 73 20 70 72 6f 67 72 | 61 6d 20 73 75 62 73 74 |is progr|am subst|
|000000f0| 69 74 75 74 65 20 74 68 | 65 20 73 74 61 72 74 20 |itute th|e start |
|00000100| 6c 6f 67 6f 20 6f 66 20 | 57 69 6e 64 6f 77 73 20 |logo of |Windows |
|00000110| 77 69 74 68 20 61 6e 20 | 6f 74 68 65 72 20 69 6d |with an |other im|
|00000120| 61 67 65 2e 20 59 6f 75 | 20 6d 75 73 74 20 63 6c |age. You| must cl|
|00000130| 65 61 72 20 74 68 69 73 | 20 77 61 72 6e 69 6e 67 |ear this| warning|
|00000140| 20 69 6e 20 74 68 65 20 | 73 63 72 69 70 74 20 74 | in the |script t|
|00000150| 6f 20 67 6f 20 61 68 65 | 61 64 2e 22 29 0d 0a 72 |o go ahe|ad.")..r|
|00000160| 65 74 75 72 6e 0d 0a 0d | 0a 4f 62 6d 70 3d 43 72 |eturn...|.Obmp=Cr|
|00000170| 65 61 74 65 49 6d 61 67 | 65 28 33 32 30 2c 34 30 |eateImag|e(320,40|
|00000180| 30 2c 38 29 0d 0a 53 65 | 74 50 61 6c 65 74 74 65 |0,8)..Se|tPalette|
|00000190| 28 4f 62 6d 70 2c 31 2c | 70 69 78 61 29 0d 0a 0d |(Obmp,1,|pixa)...|
|000001a0| 0a 27 50 72 65 70 61 72 | 65 20 72 6f 74 61 74 65 |.'Prepar|e rotate|
|000001b0| 20 70 61 6c 65 74 74 65 | 0d 0a 46 6f 72 20 79 3d | palette|..For y=|
|000001c0| 30 20 74 6f 20 36 33 0d | 0a 20 20 20 70 69 78 61 |0 to 63.|.   pixa|
|000001d0| 2e 42 6c 75 65 3d 79 2a | 32 2b 33 32 0d 0a 20 20 |.Blue=y*|2+32..  |
|000001e0| 20 53 65 74 50 61 6c 65 | 74 74 65 28 4f 62 6d 70 | SetPale|tte(Obmp|
|000001f0| 2c 79 2b 31 32 38 2c 70 | 69 78 61 29 0d 0a 20 20 |,y+128,p|ixa)..  |
|00000200| 20 53 65 74 50 61 6c 65 | 74 74 65 28 4f 62 6d 70 | SetPale|tte(Obmp|
|00000210| 2c 79 2b 31 39 32 2c 70 | 69 78 62 29 0d 0a 4e 65 |,y+192,p|ixb)..Ne|
|00000220| 78 74 20 79 0d 0a 0d 0a | 70 69 78 61 2e 52 65 64 |xt y....|pixa.Red|
|00000230| 3d 30 0d 0a 70 69 78 61 | 2e 42 6c 75 65 3d 30 0d |=0..pixa|.Blue=0.|
|00000240| 0a 70 69 78 61 2e 47 72 | 65 65 6e 3d 32 35 35 0d |.pixa.Gr|een=255.|
|00000250| 0a 53 65 74 50 61 6c 65 | 74 74 65 28 4f 62 6d 70 |.SetPale|tte(Obmp|
|00000260| 2c 32 34 36 2c 70 69 78 | 61 29 0d 0a 4f 62 6d 70 |,246,pix|a)..Obmp|
|00000270| 2e 43 6c 72 49 6d 70 3d | 32 34 36 20 20 20 20 09 |.ClrImp=|246    .|
|00000280| 27 69 6e 66 6f 72 6d 20 | 77 69 6e 39 35 20 6f 66 |'inform |win95 of|
|00000290| 20 75 70 70 65 72 20 6c | 69 6d 69 74 0d 0a 0d 0a | upper l|imit....|
|000002a0| 27 70 61 69 6e 74 20 62 | 61 63 6b 67 72 6f 75 6e |'paint b|ackgroun|
|000002b0| 64 0d 0a 46 6f 72 20 79 | 3d 30 20 74 6f 20 31 31 |d..For y|=0 to 11|
|000002c0| 30 0d 0a 20 20 20 69 3d | 31 39 32 2d 28 36 34 2f |0..   i=|192-(64/|
|000002d0| 31 31 30 2a 79 29 0d 0a | 20 20 20 46 6f 72 20 78 |110*y)..|   For x|
|000002e0| 3d 30 20 74 6f 20 4f 62 | 6d 70 2e 57 69 64 74 68 |=0 to Ob|mp.Width|
|000002f0| 2d 31 0d 0a 20 20 20 20 | 20 20 53 65 74 50 69 78 |-1..    |  SetPix|
|00000300| 65 6c 56 61 6c 28 4f 62 | 6d 70 2c 78 2c 79 2c 69 |elVal(Ob|mp,x,y,i|
|00000310| 29 0d 0a 20 20 20 4e 65 | 78 74 20 78 0d 0a 4e 65 |)..   Ne|xt x..Ne|
|00000320| 78 74 20 79 0d 0a 0d 0a | 46 6f 72 20 79 3d 33 30 |xt y....|For y=30|
|00000330| 20 74 6f 20 33 30 30 20 | 73 74 65 70 20 33 30 0d | to 300 |step 30.|
|00000340| 0a 20 20 20 46 6f 72 20 | 69 3d 30 20 74 6f 20 32 |.   For |i=0 to 2|
|00000350| 37 20 73 74 65 70 20 33 | 0d 0a 20 20 20 20 20 20 |7 step 3|..      |
|00000360| 61 3d 38 30 30 2d 28 31 | 32 30 2a 6c 6f 67 28 79 |a=800-(1|20*log(y|
|00000370| 2b 69 29 29 0d 0a 20 20 | 20 20 20 20 46 6f 72 20 |+i))..  |    For |
|00000380| 78 3d 30 20 74 6f 20 4f | 62 6d 70 2e 57 69 64 74 |x=0 to O|bmp.Widt|
|00000390| 68 2d 31 0d 0a 20 20 20 | 20 20 20 20 20 20 20 53 |h-1..   |       S|
|000003a0| 65 74 50 69 78 65 6c 56 | 61 6c 28 4f 62 6d 70 2c |etPixelV|al(Obmp,|
|000003b0| 78 2c 61 2c 32 34 36 2b | 28 69 2f 33 29 29 0d 0a |x,a,246+|(i/3))..|
|000003c0| 20 20 20 20 20 20 4e 65 | 78 74 20 78 0d 0a 20 20 |      Ne|xt x..  |
|000003d0| 20 4e 65 78 74 20 69 0d | 0a 20 20 20 50 72 65 76 | Next i.|.   Prev|
|000003e0| 69 65 77 28 4f 62 6d 70 | 2c 22 4f 75 74 70 75 74 |iew(Obmp|,"Output|
|000003f0| 22 2c 35 2c 35 2c 4f 62 | 6d 70 2e 57 69 64 74 68 |",5,5,Ob|mp.Width|
|00000400| 2b 31 30 2c 4f 62 6d 70 | 2e 48 65 69 67 68 74 2b |+10,Obmp|.Height+|
|00000410| 33 30 29 09 0d 0a 4e 65 | 78 74 20 79 0d 0a 0d 0a |30)...Ne|xt y....|
|00000420| 0d 0a 50 72 65 76 69 65 | 77 28 4f 62 6d 70 2c 22 |..Previe|w(Obmp,"|
|00000430| 4f 75 74 70 75 74 22 2c | 35 2c 35 2c 4f 62 6d 70 |Output",|5,5,Obmp|
|00000440| 2e 57 69 64 74 68 2b 31 | 30 2c 4f 62 6d 70 2e 48 |.Width+1|0,Obmp.H|
|00000450| 65 69 67 68 74 2b 33 30 | 29 09 0d 0a 0d 0a 53 61 |eight+30|).....Sa|
|00000460| 76 65 49 6d 61 67 65 28 | 4f 62 6d 70 2c 22 63 3a |veImage(|Obmp,"c:|
|00000470| 5c 6c 6f 67 6f 2e 73 79 | 73 22 29 0d 0a 0d 0a 44 |\logo.sy|s")....D|
|00000480| 73 70 57 68 69 6c 65 28 | 22 22 2c 30 29 0d 0a 44 |spWhile(|"",0)..D|
|00000490| 73 70 4d 65 73 28 22 45 | 6e 64 22 29             |spMes("E|nd")    |
+--------+-------------------------+-------------------------+--------+--------+